Voyager Presents CD-ROM's That Matter/Voyager Presents CD-ROM's That Matter.iso/pc/demos/cv/cv.dir/00099.ls

Text File | 1994-10-19 | 430 b | 31 lines

on myWait theTicks
  set myTicks to theTicks + the ticks
  repeat while myTicks >= the ticks
  end repeat
end

on enterFrame
  cursor(200)
end

on waitQT chan
  if the movieRate of sprite chan = 1 then
    go(the frame)
  end if
end

on waitSound chan
  if soundBusy(chan) = 1 then
    go(the frame)
  end if
end

on keyDown
  global autoPlaying
  set autoPlaying to 0
  sound stop 1
  sound stop 2
  unLoadCast()
  play done
end